Мета роботи: виробити практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення.
1.ПОСТАНОВКА ЗАДАЧІ.
Одночасно з введенням даних з клавіатури здійснити паралельне їх виведення у файл, аналогічно здійснити введення даних з файлу та виведення їх у вікно. Прізвище, ім’я, побатькові вводити як один рядок. Номер варіанту вводити як рядок, наприклад: Варіат 5. Числові дані можна ввести не з клавіатури, а як типізовані константи.
Для затримки використаємо оператор repeat. Він буде виконуватись доки не буде натиснена будь-яка клавіша.
Приклад ескізу текстового файлу(вікна):
група[Enter]
Варіант[Enter]
Ім’я[Enter]
По-батькові[Enter]
Число 1 [Enter]
Число 2 [Enter]
Число 3 [Enter]
2.РОЗРОБКА СТРУКТУРИ ДАНИХ.
Позначення
Імя
Тип
Призначення
Назва групи
s
рядок
Проміжна,
Номер варіанту
d
збереження
ПІП
g, h
рядка симв.
Числові дані
k1,k2,k3
дійсна
Проміжні
Файл даних
f
текстовий
файл
Звязок з файлом
g.txt
Колір фону та літер
c,w
byte
Відповідають за збереження кольору фону та літер
3.РОЗРОБКА АЛГОРИТМУ.
При розробці алгоритму треба передбачити наступну послідовність дій: призначити файловій змінній файл на диску; відкриття файлу на запис; введення з клавіатури та паралельне виведення даних у файл; відкриття файлу на читання; зчитування даних з файлу та паралельне виведення в задане вікно; закриття файлу.
4.РОЗРОБКА ПРОГРАМИ.
program write;
uses crt;
var
f:text;
s,d,g,h:string;
k1,k2,k3:real;
c,w:byte;
begin
c:=1; {kolir fony}
w:=2; {kolir liter}
window(10,10,50,20); {koordunatu wikna}
textcolor(w);
textbackground(c);
ClrScr;
writeln('nazva grypu :');
readln(s);
writeln('nomer varianty:');
readln(d);
writeln('imja :');
readln(g);
writeln('Po-batkovi:');
readln(h);
writeln('Chuslovi dani :');
readln(k1);
readln(k2);
readln(k3);
assign(f,'D:\g.txt');
rewrite(f);
writeln(f,s);
writeln(f,d);
writeln(f,g);
writeln(f,h);
writeln(f,k1:10:2);
writeln(f,k2:10:2);
writeln(f,k3:10:2);
close(f);
repeat until KeyPressed;
system.Reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
readln;
end.
5.ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.
Висновок: я виробив практичні навики застосування операторів введення(виведення даних, доступу до файлів, керованого виведення.
Ознайомився з операторами write, writeln, readln, read, assign.
Міністерство освіти і науки України
НУ «Львівська Політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
ЗВІТ З ЛАБОРАТОРНОЇ РОБОТИ №3
НА ТЕМУ: “ВВЕДЕННЯ ( ВИВЕДЕННЯ ДАНИХ”
з дисципліни «Інформатика та обчислювальна техніка»
Підготував
Студент
Групи РТ-11
Костюкович Василь
Прийняв:
Нестор Н. І.
Львів-2010р.
